nepravidelny tvar formulare podle masky

Otázka od: Anton

6. 10. 2002 12:48

Ahoj,
muj problem spociva v tom, ze bych chtel udelat nepravidelny tvar
formulare podle masky. Maska v bitmape má dve barevne odlisene plochy -
bilou, ktera znaci vysledny tvar formulare a cernou plochu kterou bych
chtel nechat zmizet. Dekuji za pripadnou odpoved.
Martin

Odpovedá: Ludo Fulop

6. 10. 2002 20:30

tu je priklad zo Zive.cz na vytvorenie "diery" vo formulari:

procedure TForm1.Button1Click(Sender: TObject);
var
region1, region2: hrgn;
begin
region1 := CreateRectRgn(0, 0, Width, Height);
region2 := CreateEllipticRgn(30, 30, 200, 200);
CombineRgn(region1, region1, region2, RGN_DIFF);
SetWindowRgn(Handle, region1, True);
end;

Ludo Fulop

----- Original Message -----
From: "Anton" <tantonin@cbox.cz>
To: "Konference Delphi" <delphi-l@clexpert.cz>
Sent: Sunday, October 06, 2002 1:46 PM
Subject: nepravidelny tvar formulare podle masky

Ahoj,
muj problem spociva v tom, ze bych chtel udelat nepravidelny tvar
formulare podle masky. Maska v bitmape má dve barevne odlisene plochy -
bilou, ktera znaci vysledny tvar formulare a cernou plochu kterou bych
chtel nechat zmizet. Dekuji za pripadnou odpoved.
Martin